inherited fmAgrDiscount: TfmAgrDiscount
  Top = 120
  Width = 782
  Height = 371
  Caption = #1057#1082#1080#1076#1082#1072'/'#1053#1072#1094#1077#1085#1082#1072' '#1074' '#1089#1095#1105#1090#1077
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel [0]
    Left = 4
    Top = 4
    Width = 18
    Height = 13
    Caption = #1058#1080#1087
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel [1]
    Left = 119
    Top = 4
    Width = 63
    Height = 13
    Caption = #1063#1100#1103' '#1089#1082#1080#1076#1082#1072'?'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel [2]
    Left = 265
    Top = 4
    Width = 35
    Height = 13
    Caption = #1059#1089#1083#1091#1075#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel [3]
    Left = 416
    Top = 4
    Width = 66
    Height = 13
    Caption = #1047#1085#1072#1095#1077#1085#1080#1077', %'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel [4]
    Left = 4
    Top = 44
    Width = 100
    Height = 13
    Caption = #1055#1091#1085#1082#1090' '#1086#1090#1087#1088#1072#1074#1083#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel [5]
    Left = 177
    Top = 44
    Width = 93
    Height = 13
    Caption = #1055#1091#1085#1082#1090' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel [6]
    Left = 350
    Top = 44
    Width = 37
    Height = 13
    Caption = #1050#1083#1080#1077#1085#1090
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object sbSender: TSpeedButton [7]
    Left = 714
    Top = 60
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
      300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
      330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
      333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
      339977FF777777773377000BFB03333333337773FF733333333F333000333333
      3300333777333333337733333333333333003333333333333377333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
    OnClick = sbSenderClick
  end
  object SpeedButton1: TSpeedButton [8]
    Left = 743
    Top = 60
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF000000FF000000FF00FF00000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
      FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
      FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
      FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000
      FF00FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000FF000000
      FF00FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF000000
      FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      0000FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF000000FF000000FF00FF00000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    OnClick = SpeedButton1Click
  end
  object Label8: TLabel [9]
    Left = 4
    Top = 84
    Width = 42
    Height = 13
    Caption = #1059#1089#1083#1086#1074#1080#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 310
    Width = 774
  end
  inherited Panel1: TPanel
    Top = 265
    Width = 774
  end
  object edCSTYPE: TcxDBLookupComboBox [12]
    Left = 4
    Top = 20
    DataBinding.DataField = 'CSTYPE'
    DataBinding.DataSource = dlgDS
    Properties.DropDownListStyle = lsFixedList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'SDID'
    Properties.ListColumns = <
      item
        FieldName = 'SDNAME'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsTypes
    Style.BorderStyle = ebs3D
    Style.Shadow = False
    Style.ButtonStyle = btsDefault
    TabOrder = 2
    Width = 109
  end
  object edCSFILCO: TcxDBLookupComboBox [13]
    Left = 119
    Top = 20
    DataBinding.DataField = 'CSFILCO'
    DataBinding.DataSource = dlgDS
    Properties.DropDownListStyle = lsFixedList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'OFID'
    Properties.ListColumns = <
      item
        FieldName = 'OFTOWN'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsFilCO
    Style.BorderStyle = ebs3D
    Style.Shadow = False
    Style.ButtonStyle = btsDefault
    TabOrder = 3
    Width = 140
  end
  object edSVID: TcxDBLookupComboBox [14]
    Left = 265
    Top = 20
    DataBinding.DataField = 'SVID'
    DataBinding.DataSource = dlgDS
    Properties.DropDownListStyle = lsFixedList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'SVID'
    Properties.ListColumns = <
      item
        FieldName = 'SVNAME'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsServices
    Style.BorderStyle = ebs3D
    Style.Shadow = False
    Style.ButtonStyle = btsDefault
    TabOrder = 4
    Width = 140
  end
  object edCSPERCENT: TDBEdit [15]
    Left = 416
    Top = 20
    Width = 73
    Height = 21
    DataField = 'CSPERCENT'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
  end
  object GroupBox1: TGroupBox [16]
    Left = 495
    Top = 0
    Width = 273
    Height = 41
    Caption = #1044#1085#1080' '#1085#1077#1076#1077#1083#1080
    TabOrder = 6
    object edCSD1: TDBCheckBox
      Left = 8
      Top = 16
      Width = 35
      Height = 17
      Caption = #1055#1085
      DataField = 'CSD1'
      DataSource = dlgDS
      TabOrder = 0
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object edCSD2: TDBCheckBox
      Left = 45
      Top = 16
      Width = 35
      Height = 17
      Caption = #1042#1090
      DataField = 'CSD2'
      DataSource = dlgDS
      TabOrder = 1
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object edCSD3: TDBCheckBox
      Left = 82
      Top = 16
      Width = 35
      Height = 17
      Caption = #1057#1088
      DataField = 'CSD3'
      DataSource = dlgDS
      TabOrder = 2
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object edCSD4: TDBCheckBox
      Left = 119
      Top = 16
      Width = 35
      Height = 17
      Caption = #1063#1090
      DataField = 'CSD4'
      DataSource = dlgDS
      TabOrder = 3
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object edCSD5: TDBCheckBox
      Left = 156
      Top = 16
      Width = 35
      Height = 17
      Caption = #1055#1090
      DataField = 'CSD5'
      DataSource = dlgDS
      TabOrder = 4
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object edCSD6: TDBCheckBox
      Left = 193
      Top = 16
      Width = 35
      Height = 17
      Caption = #1057#1073
      DataField = 'CSD6'
      DataSource = dlgDS
      TabOrder = 5
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object edCSD7: TDBCheckBox
      Left = 230
      Top = 16
      Width = 35
      Height = 17
      Caption = #1042#1089
      DataField = 'CSD7'
      DataSource = dlgDS
      TabOrder = 6
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
  end
  object edCSOFIDSEND: TcxDBLookupComboBox [17]
    Left = 4
    Top = 60
    DataBinding.DataField = 'CSOFIDSEND'
    DataBinding.DataSource = dlgDS
    Properties.DropDownListStyle = lsFixedList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'OFID'
    Properties.ListColumns = <
      item
        FieldName = 'OFOFFICE'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsTowns
    Style.BorderStyle = ebs3D
    Style.Shadow = False
    Style.ButtonStyle = btsDefault
    TabOrder = 7
    Width = 167
  end
  object edCSOFIDDEST: TcxDBLookupComboBox [18]
    Left = 177
    Top = 60
    DataBinding.DataField = 'CSOFIDDEST'
    DataBinding.DataSource = dlgDS
    Properties.DropDownListStyle = lsFixedList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'OFID'
    Properties.ListColumns = <
      item
        FieldName = 'OFOFFICE'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsTowns
    Style.BorderStyle = ebs3D
    Style.Shadow = False
    Style.ButtonStyle = btsDefault
    TabOrder = 8
    Width = 167
  end
  object edCLNAME: TDBEdit [19]
    Left = 350
    Top = 60
    Width = 358
    Height = 21
    DataField = 'CLNAME'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 9
  end
  object edCSWHERE: TDBMemo [20]
    Left = 4
    Top = 100
    Width = 485
    Height = 135
    DataField = 'CSWHERE'
    DataSource = dlgDS
    ScrollBars = ssVertical
    TabOrder = 10
    WantReturns = False
  end
  object edTabFields: TComboBox [21]
    Left = 495
    Top = 100
    Width = 271
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 11
  end
  object Button1: TButton [22]
    Left = 577
    Top = 136
    Width = 88
    Height = 41
    Caption = #1044#1086#1073#1072#1074#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
    WordWrap = True
    OnClick = Button1Click
  end
  inherited dlgDS: TDataSource
    DataSet = qAgr
    Left = 288
    Top = 240
  end
  object qAgr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qAgrAfterInsert
    BeforePost = qAgrBeforePost
    BufferChunks = 1000
    CachedUpdates = True
    SQL.Strings = (
      'SELECT C.*,'
      '       IIF((C.CSLINKCLID = -1),'#39#1051#1102#1073#1086#1081' '#1082#1083#1080#1077#1085#1090#39',L.CLNAME) CLNAME'
      '  FROM CLAGRDISCOUNTS C'
      '  LEFT OUTER JOIN CLIENTS L ON (C.CSLINKCLID = L.CLID)'
      ' WHERE C.CSID = :CSID   ')
    UpdateObject = quAgr
    GeneratorField.Field = 'CSID'
    GeneratorField.Generator = 'GCLAGRDISCOUNTS'
    Left = 320
    Top = 240
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CSID'
        ParamType = ptUnknown
      end>
    object qAgrCSID: TIntegerField
      FieldName = 'CSID'
      Origin = '"CLAGRDISCOUNTS"."CSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qAgrCAID: TIntegerField
      FieldName = 'CAID'
      Origin = '"CLAGRDISCOUNTS"."CAID"'
    end
    object qAgrCSTYPE: TIntegerField
      FieldName = 'CSTYPE'
      Origin = '"CLAGRDISCOUNTS"."CSTYPE"'
    end
    object qAgrCSFILCO: TIntegerField
      FieldName = 'CSFILCO'
      Origin = '"CLAGRDISCOUNTS"."CSFILCO"'
    end
    object qAgrCSOFIDSEND: TIntegerField
      FieldName = 'CSOFIDSEND'
      Origin = '"CLAGRDISCOUNTS"."CSOFIDSEND"'
    end
    object qAgrCSOFIDDEST: TIntegerField
      FieldName = 'CSOFIDDEST'
      Origin = '"CLAGRDISCOUNTS"."CSOFIDDEST"'
    end
    object qAgrCSLINKCLID: TIntegerField
      FieldName = 'CSLINKCLID'
      Origin = '"CLAGRDISCOUNTS"."CSLINKCLID"'
    end
    object qAgrSVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"CLAGRDISCOUNTS"."SVID"'
    end
    object qAgrCSPERCENT: TIBBCDField
      FieldName = 'CSPERCENT'
      Origin = '"CLAGRDISCOUNTS"."CSPERCENT"'
      Precision = 18
      Size = 4
    end
    object qAgrCSD1: TIntegerField
      FieldName = 'CSD1'
      Origin = '"CLAGRDISCOUNTS"."CSD1"'
    end
    object qAgrCSD2: TIntegerField
      FieldName = 'CSD2'
      Origin = '"CLAGRDISCOUNTS"."CSD2"'
    end
    object qAgrCSD3: TIntegerField
      FieldName = 'CSD3'
      Origin = '"CLAGRDISCOUNTS"."CSD3"'
    end
    object qAgrCSD4: TIntegerField
      FieldName = 'CSD4'
      Origin = '"CLAGRDISCOUNTS"."CSD4"'
    end
    object qAgrCSD5: TIntegerField
      FieldName = 'CSD5'
      Origin = '"CLAGRDISCOUNTS"."CSD5"'
    end
    object qAgrCSD6: TIntegerField
      FieldName = 'CSD6'
      Origin = '"CLAGRDISCOUNTS"."CSD6"'
    end
    object qAgrCSD7: TIntegerField
      FieldName = 'CSD7'
      Origin = '"CLAGRDISCOUNTS"."CSD7"'
    end
    object qAgrCSWHERE: TIBStringField
      FieldName = 'CSWHERE'
      Origin = '"CLAGRDISCOUNTS"."CSWHERE"'
      Size = 2048
    end
    object qAgrCLNAME: TIBStringField
      FieldName = 'CLNAME'
      ProviderFlags = []
      Size = 255
    end
  end
  object quAgr: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  CSID,'
      '  CAID,'
      '  CSTYPE,'
      '  CSFILCO,'
      '  CSOFIDSEND,'
      '  CSOFIDDEST,'
      '  CSLINKCLID,'
      '  SVID,'
      '  CSPERCENT,'
      '  CSD1,'
      '  CSD2,'
      '  CSD3,'
      '  CSD4,'
      '  CSD5,'
      '  CSD6,'
      '  CSD7,'
      '  CSWHERE'
      'from CLAGRDISCOUNTS '
      'where'
      '  CSID = :CSID')
    ModifySQL.Strings = (
      'update CLAGRDISCOUNTS'
      'set'
      '  CAID = :CAID,'
      '  CSD1 = :CSD1,'
      '  CSD2 = :CSD2,'
      '  CSD3 = :CSD3,'
      '  CSD4 = :CSD4,'
      '  CSD5 = :CSD5,'
      '  CSD6 = :CSD6,'
      '  CSD7 = :CSD7,'
      '  CSFILCO = :CSFILCO,'
      '  CSID = :CSID,'
      '  CSLINKCLID = :CSLINKCLID,'
      '  CSOFIDDEST = :CSOFIDDEST,'
      '  CSOFIDSEND = :CSOFIDSEND,'
      '  CSPERCENT = :CSPERCENT,'
      '  CSTYPE = :CSTYPE,'
      '  CSWHERE = :CSWHERE,'
      '  SVID = :SVID'
      'where'
      '  CSID = :OLD_CSID')
    InsertSQL.Strings = (
      'insert into CLAGRDISCOUNTS'
      
        '  (CAID, CSD1, CSD2, CSD3, CSD4, CSD5, CSD6, CSD7, CSFILCO, CSID' +
        ', CSLINKCLID, '
      '   CSOFIDDEST, CSOFIDSEND, CSPERCENT, CSTYPE, CSWHERE, SVID)'
      'values'
      
        '  (:CAID, :CSD1, :CSD2, :CSD3, :CSD4, :CSD5, :CSD6, :CSD7, :CSFI' +
        'LCO, :CSID, '
      
        '   :CSLINKCLID, :CSOFIDDEST, :CSOFIDSEND, :CSPERCENT, :CSTYPE, :' +
        'CSWHERE, '
      '   :SVID)')
    DeleteSQL.Strings = (
      'delete from CLAGRDISCOUNTS'
      'where'
      '  CSID = :OLD_CSID')
    Left = 344
    Top = 240
  end
  object dsTypes: TDataSource
    DataSet = qTypes
    Left = 544
    Top = 240
  end
  object qTypes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 22'
      ' ORDER BY S.SDID')
    Left = 568
    Top = 240
  end
  object dsFilCO: TDataSource
    DataSet = qFilCO
    Left = 488
    Top = 240
  end
  object qFilCO: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT S.OFID, S.OFTOWN'
      '  FROM OFFICES S'
      ' WHERE S.OFID = S.OFTMAINID'
      '   AND S.OFTYPE = 1'
      ' ORDER BY S.OFTOWN')
    Left = 512
    Top = 240
  end
  object qServices: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT *'
      '  FROM SERVICES S'
      ' WHERE S.SVID IN (1, 2, 3, 4, 6, 7, 8)'
      ' ORDER BY S.SVID')
    Left = 456
    Top = 240
  end
  object dsServices: TDataSource
    DataSet = qServices
    Left = 432
    Top = 240
  end
  object dsTowns: TDataSource
    DataSet = qTowns
    Left = 376
    Top = 240
  end
  object qTowns: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT S.OFID, S.OFOFFICE'
      '  FROM OFFICES S'
      'UNION'
      'SELECT -1 OFID, '#39'--- '#1051#1102#1073#1086#1081' '#1075#1086#1088#1086#1076' ---'#39' OFOFFICE'
      '  FROM OFFICES S'
      ' ORDER BY 2')
    Left = 400
    Top = 240
  end
  object qTabFields: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qTabFieldsAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT *'
      '  FROM CLDISCFIELDS C'
      ' ORDER BY C.ID')
    Left = 528
    Top = 96
  end
  object qCheckWhere: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qTabFieldsAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT '#39'True'#39' Result'
      '  FROM TABLEONE'
      ' WHERE (0 > 1)'
      'UNION'
      'SELECT '#39'False'#39' Result'
      '  FROM TABLEONE'
      ' WHERE NOT (0 > 1)')
    Left = 560
    Top = 96
  end
end
